!************************************************************
!Program to generate the state grid (uniform grid points)
!************************************************************

MODULE mod_grid


USE mod_types
USE mod_parameters


IMPLICIT NONE

INTEGER:: i0
INTEGER, PARAMETER:: phi_grid_size = 100
REAL(dp), DIMENSION(phi_grid_size):: phi_grid
REAL(dp), PARAMETER:: lower_end = 0.0_dp, upper_end = 1.0_dp


CONTAINS


SUBROUTINE grid_generation

!grid generation
DO i0 = 1, phi_grid_size
   phi_grid(i0)=(upper_end-lower_end)/REAL(phi_grid_size-1,dp)*REAL(i0-1,dp)&
                +lower_end
END DO



END SUBROUTINE grid_generation

END MODULE mod_grid
